home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
gl101.zip
/
VIEWICON.PRG
< prev
Wrap
Text File
|
1991-06-27
|
2KB
|
58 lines
*.............................................................................
*
* Program Name: VIEWICON.PRG Copyright: Global Technologies Corporation
* Date Created: 10/27/90 Language: Clipper 5.0
* Time Created: 14:28:26 Author: Bill French
* /brief/library.src
*.............................................................................
#include "gllibr.ch" // include the gl language definitions
function Main(iconfile,switch)
do case
case pcount() == 0
clear screen
? "Syntax: viewicon <iconfile> <switct>"
? " where <switch> is /C for composite"
quit
case pcount() == 1
iconfile := if("."$iconfile,upper(iconfile),upper(iconfile)+".ICO")
switch := ""
case pcount() == 1
iconfile := if("."$iconfile,upper(iconfile),upper(iconfile)+".ICO")
switch := upper(switch)
endcase
clear screen // clear the text screen
set graphics on // graphics mode
set color to "w+/n"
set palette background to blue // change the background color
set icon to &iconfile. // load the sample supericon file
clear graphics screen // clear the graphics screen
draw "Icon File: "+upper(iconfile) at 02,28
if "/C" $ upper(switch)
draw super icon 0 at 08,14 overlay 1 2 3 4
draw super icon 4 at 15,14 overlay 5 6 7 8
draw "Icon 0" at 12,10
draw "Icon 4" at 19,10
else
draw super icon 0 at 08,14
draw super icon 1 at 08,28
draw super icon 2 at 08,42
draw super icon 3 at 08,56
draw "Icon 0" at 12,10
draw "Icon 1" at 12,24
draw "Icon 2" at 12,38
draw "Icon 3" at 12,52
draw super icon 4 at 15,14
draw super icon 5 at 15,28
draw super icon 6 at 15,42
draw super icon 7 at 15,56
draw "Icon 4" at 19,10
draw "Icon 5" at 19,24
draw "Icon 6" at 19,38
draw "Icon 7" at 19,52
endif
inkey(30)
set console on
set graphics off // set to text mode
return(Void)